Micom Basic 1995 August/CD [BM9508].bin/basic/toukou/n88basic/golf.bas

BASIC Source File | 1995-06-13 | 16.0 KB | 245 lines

1000 '******************************************************************
1010 '       ûεê≤âOâïât                    T.Kodama
1020 '******************************************************************
1030 CLEAR &H100:DEFINT A-Z:SCREEN 3,0,0,1:DIM CH(1551),P(7),MP(15,11)
1040 CONSOLE 0,25,0,1:GOSUB 2000
1050 REV=0:MEN=1:GOSUB 1770
1060 '----( ╣▐░╤ ëµû╩ )------------------------------------------------------
1070 GOSUB 1570:A$=CHR$(29)+CHR$(31):GSW=0
1080 LINE (524,8)-(636,40),3,B:LOCATE 67,1:COLOR 6:PRINT "ûεê≤âSâïât";
1090 LINE (524,56)-(636,88),3,B:LOCATE 70,4:PRINT "No.";MEN;
1100 LINE (524,104)-(636,280),3,B:LOCATE 67,7:PRINT "ê┌ô«";
1110 LOCATE 72,9:PRINT "8"+A$+"|"+A$+CHR$(31)+CHR$(31)+CHR$(31)+"|"+A$+"2";
1120 LOCATE 67,12:PRINT "4--     --6";:PUT@ (564,184),CH(P(7)),PSET
1130 LINE (524,296)-(636,376),3,B:LOCATE 67,19:PRINT "G .. ì─ƺÉφ";
1140 LOCATE 67,20:PRINT "N .. ăëµû╩";:LOCATE 67,21:PRINT "D .. âfâéé╓";
1150 LOCATE 67,22:PRINT "E .. ÅIù╣";:COLOR 7
1160 '----( ╥▓▌ ┘░╠▀ )-------------------------------------------------------
1170 K$=INKEY$:IF K$="" THEN 1170 ELSE IF K$="E" THEN CLS 3:END
1180 IF K$="D" THEN 1050 ELSE IF K$="G" THEN 1070 ELSE IF K$="N" THEN 1200
1190 GOSUB 1220:IF GSW=0 THEN 1170 ELSE GOSUB 1460
1200 MEN=MEN+1:IF MEN>10 THEN MEN=1:GOTO 1070 ELSE GOTO 1070
1210 '----( ê┌ô« )-----------------------------------------------------------
1220 DX=(K$="4")-(K$="6"):DY=(K$="8")-(K$="2"):IF DX=0 AND DY=0 THEN RETURN
1230 XX=XM+DX:YY=YM+DY:IF MP(XX,YY)=0 THEN 1250
1240 IF MP(XX,YY)>1 AND MP(XX,YY)<6 THEN 1260 ELSE RETURN
1250 X=XM:Y=YM:GOSUB 1700:XM=XX:YM=YY:GOSUB 1710:RETURN
1260 X1=XX+DX:Y1=YY+DY:IF MP(X1,Y1)=0 THEN 1290 ELSE IF MP(X1,Y1)=6 THEN 1380
1270 IF MP(X1,Y1)>1 AND MP(X1,Y1)<6 THEN 1300 ELSE RETURN
1280 IF MP(X1,Y1)=6 THEN 1380 ELSE GOTO RETURN
1290 MP(X1,Y1)=MP(XX,YY):X=X1:Y=Y1:GOSUB 1700:MP(XX,YY)=0:GOTO 1250
1300 IF DY=-1 AND MP(XX,YY)=2 THEN 1330 ELSE IF DY=1 AND MP(XX,YY)=4 THEN 1330
1310 IF DX=-1 AND MP(XX,YY)=3 THEN 1330 ELSE IF DX=1 AND MP(XX,YY)=5 THEN 1330
1320 RETURN
1330 IF DY=-1 AND MP(X1,Y1)=4 THEN MP(XX,YY)=0:GOTO 1370
1340 IF DY= 1 AND MP(X1,Y1)=2 THEN MP(XX,YY)=0:GOTO 1370
1350 IF DX=-1 AND MP(X1,Y1)=5 THEN MP(XX,YY)=0:GOTO 1370
1360 IF DX= 1 AND MP(X1,Y1)=3 THEN MP(XX,YY)=0:GOTO 1370 ELSE GOTO 1290
1370 MP(X1,Y1)=0:X=X1:Y=Y1:GOSUB 1700:GOTO 1250
1380 IF MP(XX,YY)=2 THEN DX=0:DY=-1:GOTO 1410
1390 IF MP(XX,YY)=3 THEN DX=-1:DY=0:GOTO 1410
1400 IF MP(XX,YY)=4 THEN DX=0:DY=1 ELSE DX=1:DY=0
1410 X2=X1+DX:Y2=Y1+DY:WHILE MP(X2,Y2)=0:MP(X2,Y2)=6:MP(X1,Y1)=0:X=X1:Y=Y1
1420 GOSUB 1700:X=X2:Y=Y2:GOSUB 1700:X1=X2:Y1=Y2
1430 X2=X1+DX:Y2=Y1+DY:WEND:IF MP(X2,Y2)<>7 THEN RETURN
1440 X=X2-DX:Y=Y2-DY:MP(X,Y)=0:GOSUB 1700:GSW=1:RETURN
1450 '----( û╩ ╕╪▒ )---------------------------------------------------------
1460 LINE (136,152)-(356,216),7,BF:LINE (144,160)-(348,208),1,BF
1470 LOCATE 21,11:PRINT "éΓé┴é╜é╦üIé▌é▒é┐éßé±";
1480 RESTORE 1500:FOR I=1 TO 3:READ M1$,M2$,M3$,M4$,M5$
1490 NEXT:RETURN
1500 DATA @23@V120T120Q4O5*E8L16EDQ7G4Q4L16REEDE8L16ED
1510 DATA @23@V120T120Q4O5*C8L16C<G>Q7E4Q4L16RCCC-C8L16C<G>
1520 DATA @23@V120T120Q4O4*G8L16GEQ7>C4L16Q4<RGGEG8L16GE,V15T120O3R2C2
1530 DATA V15T120O2R2C2,A8G4.L16REEDE8L16ED,F8E4.L16RCCC-C8L16C<G>
1540 DATA >C8C4.L16<RGGEG8L16GE,R4R8L16GGC2,R4R8L16GGC2
1550 DATA L8AFFA>C2O0,L8FCCFG2O0,L8>C<GG>CE2O0,R2C2O0,R2C2O0
1560 '----( û╩ò\Ī )---------------------------------------------------------
1570 CLS 3:FOR Y=0 TO 11:FOR X=0 TO 15:MP(X,Y)=1:GOSUB 1700:NEXT:NEXT
1580 IF MEN= 1 THEN RESTORE 3020 ELSE IF MEN= 2 THEN RESTORE 3040
1590 IF MEN= 3 THEN RESTORE 3060 ELSE IF MEN= 4 THEN RESTORE 3080
1600 IF MEN= 5 THEN RESTORE 3100 ELSE IF MEN= 6 THEN RESTORE 3120
1610 IF MEN= 7 THEN RESTORE 3140 ELSE IF MEN= 8 THEN RESTORE 3160
1620 IF MEN= 9 THEN RESTORE 3180 ELSE IF MEN=10 THEN RESTORE 3200
1630 FOR Y=1 TO 10:X=1:READ A$:FOR I=1 TO 7:K=ASC(MID$(A$,I,1))-48
1640 IF K>9 THEN K=K-7
1650 MP(X,Y)=K\6:GOSUB 1700:X=X+1:MP(X,Y)=K MOD 6:GOSUB 1700:X=X+1:NEXT:NEXT
1660 READ A$,B$,C$,D$,E$,F$:XM=VAL("&H"+A$):YM=VAL("&H"+B$):GOSUB 1710
1670 X=VAL("&H"+C$):Y=VAL("&H"+D$):MP(X,Y)=6:GOSUB 1700
1680 X=VAL("&H"+E$):Y=VAL("&H"+F$):MP(X,Y)=7:GOSUB 1700:RETURN
1690 '----( ╖¼╫╕└ ò\Ī )-----------------------------------------------------
1700 P=MP(X,Y)-1:GOSUB 1720:RETURN
1710 X=XM:Y=YM:P=7:GOSUB 1720:RETURN
1720 IF P>-1 THEN 1740 ELSE IF REV=0 THEN C=0 ELSE C=7
1730 LINE (X*32,Y*32)-(X*32+31,Y*32+31),C,BF:RETURN
1740 IF REV=0 THEN PUT@ (X*32,Y*32),CH(P(P)),PSET:RETURN
1750 PUT@ (X*32,Y*32),CH(P(P)),PRESET:RETURN
1760 '----( └▓─┘Ñ├▐╙ )-------------------------------------------------------
1770 CLS 3:RESTORE 1890:FOR I=1 TO 9:READ A,A$:FOR J=1 TO LEN(A$) STEP 2
1780 X=VAL("&H"+MID$(A$,J,1))*8+A*90+80:Y=VAL("&H"+MID$(A$,J+1,1))*8
1790 IF J>1 THEN LINE (XF,YF)-(X,Y),6
1800 XF=X:YF=Y:NEXT:PAINT (X+2,Y-1),2,6:NEXT:X=15:FOR Y=4 TO 11:READ P,A$
1810 GOSUB 1740:LOCATE 65,Y*2+1:PRINT "...";A$;:NEXT
1820 FOR Y=4 TO 11:FOR X=0 TO 13:MP(X,Y)=1:GOSUB 1700:NEXT:NEXT:RESTORE 1950
1830 FOR Y=5 TO 10:READ A$:FOR X=1 TO 12:MP(X,Y)=VAL(MID$(A$,X,1)):GOSUB 1700
1840 IF MP(X,Y)=8 THEN XM=X:YM=Y:MP(X,Y)=0
1850 NEXT:NEXT:READ Q$,A$:Q$=Q$+A$:FOR Q=1 TO LEN(Q$):K$=MID$(Q$,Q,1)
1860 GOSUB 1220:FOR QQ=1 TO 200:P$=INKEY$:IF P$<>"" THEN QQ=500:Q=LEN(Q$)
1870 NEXT:NEXT:IF P$="E" THEN 3230 ELSE IF P$<>"" THEN RETURN
1880 FOR QQ=1 TO 3000:NEXT:GOTO 1820
1890 DATA 0,0C0B1B4847070646432315051310202282835356969757588B9B9C7C59492C0C
1900 DATA 1,0A0220301213333414173738181A0A,1,4C41818868677772525C4C
1910 DATA 2,0C0B7B740403838C0C,2,6250607262,2,8270809282,3,0C282333381C0C
1920 DATA 3,4C41515B787686885C4C,4,02018185784B2C2B4A68757202
1930 DATA 7,é▌é▒é┐éßé±,0,ò╟,1,ûεê≤âuâìâbâN,2,ûεê≤âuâìâbâN,3,ûεê≤âuâìâbâN
1940 DATA 4,ûεê≤âuâìâbâN,5,â{ü[âï,6,âzü[âï
1950 DATA 604400017000,011302011110,000002000010,050003000010,011111110800
1960 DATA 000000000000
1970 DATA 884444424888446222448422866666624488862242666686224266866244488844444
1980 DATA 426666668624266268888
1990 '----( ╖¼╫╕└ É▌ÆΦ )-----------------------------------------------------
2000 CLS 3:LOCATE 26,10:PRINT "é╡é╬éτé¡é¿æ╥é┐ë║é│éó";
2010 RESTORE 2050:M=1:FOR I=0 TO 1551:IF M=1 THEN READ A$
2020 CH(I)=VAL("&H"+MID$(A$,M,4)):M=M+4:IF M>LEN(A$) THEN M=1
2030 NEXT:FOR I=0 TO 7:P(I)=I*194:NEXT:RETURN
2040 '----( ╖¼╫╕└ ├▐░└ )-----------------------------------------------------
2050 DATA 0020002018181818EFEFEFEF0808080818181818EFEFEFEF08080808FFFFFFFF0808
2060 DATA 080808080808FFFFFFFFFFFFFFFFFFFFFFFF81818181FEFEFEFE8080808081818181
2070 DATA FEFEFEFE80808080FFFFFFFF8080808080808080FFFFFFFFFFFFFFFFFFFFFFFF1818
2080 DATA 1818EFEFEFEF0808080818181818EFEFEFEF08080808FFFFFFFF0808080808080808
2090 DATA FFFFFFFFFFFFFFFFFFFFFFFF81818181FEFEFEFE8080808081818181FEFEFEFE8080
2100 DATA 8080FFFFFFFF8080808080808080FFFFFFFFFFFFFFFFFFFFFFFF18181818EFEFEFEF
2110 DATA 0808080818181818EFEFEFEF08080808FFFFFFFF0808080808080808FFFFFFFFFFFF
2120 DATA FFFFFFFFFFFF81818181FEFEFEFE8080808081818181FEFEFEFE80808080FFFFFFFF
2130 DATA 8080808080808080FFFFFFFFFFFFFFFFFFFFFFFF18181818EFEFEFEF080808081818
2140 DATA 1818EFEFEFEF08080808FFFFFFFF0808080808080808FFFFFFFFFFFFFFFFFFFFFFFF
2150 DATA 81818181FEFEFEFE8080808081818181FEFEFEFE80808080FFFFFFFF808080808080
2160 DATA 8080FFFFFFFFFFFFFFFFFFFFFFFF
2170 DATA 002000200000000000000000010000800000000000000000030000C0000000000000
2180 DATA 0000070000E001000080000000000E000070030000C0000000001C000038070000E0
2190 DATA 000000003800001C0F0000F0000000007000000E1F0000F800000000E00000073F00
2200 DATA 00FC00000000C00180037F0000FE000000008003C001FF0000FF000000000007E000
2210 DATA FF0180FF00000000000E7000FF03C0FF00000000001C3800FF07E0FF000000000038
2220 DATA 1C007F0000FE00000000807FFE017F0000FE0000000080FFFF017F0000FE00000000
2230 DATA 800180017F0000FE00000000800180017F0000FE00000000800180017F0000FE0000
2240 DATA 0000800180017F0000FE00000000800180017F0000FE00000000800180017F0000FE
2250 DATA 00000000800180017F0000FE00000000800180017F0000FE00000000800180017F00
2260 DATA 00FE00000000800180017F0000FE00000000800180017F0000FE0000000080018001
2270 DATA 7F0000FE00000000800180017F0000FE00000000800180010000000000000000FF01
2280 DATA 80FF0000000000000000FF0180FF
2290 DATA 00200020000000000000000001000000000000000000000003000000000000000000
2300 DATA 00000700000000000000000000000F00000000000000000000001F00000004000000
2310 DATA 000000003B0000000C00000000000000730000001C00000000000000E300FFFF3C00
2320 DATA 000000000000C301FFFF7F00FCFF0000000080030300FF00FCFF0000000000070300
2330 DATA FF01FCFF00000000000E0300FF03FCFF00000000001C0300FF07FCFF000000000038
2340 DATA 0300FF0FFCFF0000000000700300FF1FFCFF0000000000E00300FF1FFCFF00000000
2350 DATA 00E00300FF0FFCFF0000000000700300FF07FCFF0000000000380300FF03FCFF0000
2360 DATA 0000001C0300FF01FCFF00000000000E0300FF00FCFF00000000000703007F00FCFF
2370 DATA 00000000800303003C00000000000000C301FFFF1C00000000000000E300FFFF0C00
2380 DATA 0000000000007300000004000000000000003B00000000000000000000001F000000
2390 DATA 00000000000000000F00000000000000000000000700000000000000000000000300
2400 DATA 0000000000000000000001000000
2410 DATA 002000200000000000000000FF0180FF0000000000000000FF0180FF7F0000FE0000
2420 DATA 0000800180017F0000FE00000000800180017F0000FE00000000800180017F0000FE
2430 DATA 00000000800180017F0000FE00000000800180017F0000FE00000000800180017F00
2440 DATA 00FE00000000800180017F0000FE00000000800180017F0000FE0000000080018001
2450 DATA 7F0000FE00000000800180017F0000FE00000000800180017F0000FE000000008001
2460 DATA 80017F0000FE00000000800180017F0000FE00000000800180017F0000FE00000000
2470 DATA 80FFFF017F0000FE00000000807FFE01FF07E0FF0000000000381C00FF03C0FF0000
2480 DATA 0000001C3800FF0180FF00000000000E7000FF0000FF000000000007E0007F0000FE
2490 DATA 000000008003C0013F0000FC00000000C00180031F0000F800000000E00000070F00
2500 DATA 00F0000000007000000E070000E0000000003800001C030000C0000000001C000038
2510 DATA 01000080000000000E0000700000000000000000070000E000000000000000000300
2520 DATA 00C0000000000000000001000080
2530 DATA 002000200000000000000000000000800000000000000000000000C0000000000000
2540 DATA 0000000000E00000000000000000000000F00000000000000000000000F800000020
2550 DATA 00000000000000DC0000003000000000000000CE0000003800000000FFFF00C70000
2560 DATA 003C00000000FFFF80C3FF3F00FE0000000000C0C001FF3F00FF0000000000C0E000
2570 DATA FF3F80FF0000000000C07000FF3FC0FF0000000000C03800FF3FE0FF0000000000C0
2580 DATA 1C00FF3FF0FF0000000000C00E00FF3FF8FF0000000000C00700FF3FF8FF00000000
2590 DATA 00C00700FF3FF0FF0000000000C00E00FF3FE0FF0000000000C01C00FF3FC0FF0000
2600 DATA 000000C03800FF3F80FF0000000000C07000FF3F00FF0000000000C0E000FF3F00FE
2610 DATA 0000000000C0C0010000003C00000000FFFF80C30000003800000000FFFF00C70000
2620 DATA 003000000000000000CE0000002000000000000000DC0000000000000000000000F8
2630 DATA 0000000000000000000000F00000000000000000000000E000000000000000000000
2640 DATA 00C0000000000000000000000080
2650 DATA 0020002000000000000000000000000000000000070000F000000000000000003F00
2660 DATA 00FE0000000000000000FF0080FF0000000000000000FF01C0FF0000000000000000
2670 DATA FF03E0FF0000000000000000FF07F0FF0000000078000000FF0FF8FF78000000FC00
2680 DATA 0000CF1FFCFFFC000000FC000000871FFCFFFC000000FC000200873FFEFFFC000000
2690 DATA FC000000CF3FFEFFFC00000078000200FF3FFEFF7800000000000500FF7FFFFF0000
2700 DATA 000000000300FF7FFFFF0000000000000500FF7FFFFF0000000000000B00FF7FFFFF
2710 DATA 0000000000001700FF7FFFFF0000000000000F00FF7FFFFF0000000000001700FF7F
2720 DATA FFFF0000000000002E00FF3FFEFF0000000000005E00FF3FFEFF000000000000BE00
2730 DATA FF3FFEFF0000000000007C01FF1FFCFF000000000000FC02FF1FFCFF000000000000
2740 DATA F805FF0FF8FF000000000000F00BFF07F0FF000000000000E057FF03E0FF00000000
2750 DATA FF01C0FFFF01C0FF00000000FF0080FFFF0080FF000000003F0000FE3F0000FE0000
2760 DATA 0000070000F0070000F000000000
2770 DATA 00200020000000000000000000000000020000000E0000000C000000030000000F00
2780 DATA 00000C000000030000800F0000800C000000030000C00F0000C00C000000030000F0
2790 DATA 0F0000F00C000000030000F80F0000F80C000000030000FC0F0000FC0C0000000300
2800 DATA 00FE0F0000FE0C000000030000FF0F0000FF0C000000030080FF0F0080FF0C000000
2810 DATA 0300C0FF0F00C0FF0C0000000300F0FF0F00F0FF0C0000000300F8FF0F00F8FF0C00
2820 DATA 00000300FCFF0F00FCFF0C0000000300FEFF0F00FEFF0C0000000300FFFF0F00FFFF
2830 DATA 0C000000000000000C0000000C000000000000000C0000000C000000000000000C00
2840 DATA 00000C000000000000000C0000000C000000000000000C0000000C00000000000000
2850 DATA 0C0000000C000000000000000C0000000C000000000000000C0000000C0000000000
2860 DATA 00000C000000FF0300F0F30100E00C0000000C060018F30300F00C0000000C0C000C
2870 DATA F30300F00C0000000C0C000CFF0100E000000000000E001C0000000000000000FF07
2880 DATA 00F80000000000000000FF0300F0
2890 DATA 0020002000000000000000001F0000F800000000000000003F0000FC000000000000
2900 DATA 00007F0000FE0000000000000000FF0000FF070000E0070000E0FF0180FF0F0000F0
2910 DATA 0F0000F0FF0180FF3F0000FC3F0000FCFF03C0FF3F0000FC3F0000FCFF03C0FF7F00
2920 DATA 00FE730000CEF303C0CFFF0000FFF30000CFF303C0CFFF0000FFF30000CFF307E0CF
2930 DATA FF0000FFF30000CFF30FF0CFFF0000FFFF0000FFFF0FF0FFFF0000FFFF0000FFFF0F
2940 DATA F0FF7F0000FE7F0000FEFC0FF03F3F0000FC3F0000FCFE0FF07F1F0000F81F0000F8
2950 DATA FF0FF0FF0F0000F00F0000F0FF07E0FF078001E0078001E0FF83C1FF00C003000FC0
2960 DATA 03F0F0C1830F00FC3F00FFFFFFFF00FC3F0000FC3F00FFFFFFFF00FC3F00007C3E00
2970 DATA FF7FFEFF007C3E00000000003F0000FC00000000000000003F0000FC000000000000
2980 DATA 00003F0000FC00000000000000003F0000FC00000000000000003F0000FC00000000
2990 DATA 3C00003C3C00003C3C00003C3C00003C3C00003C3C00003C000000007C00003E0000
3000 DATA 000000000000FC00003F00000000
3010 '----( û╩ ├▐░└ (0ü`9,Aü`Z) )--------------------------------------------
3020 DATA C000003,170U164,1060613,101100B,10110I0,10610O0,1701006,105O610
3030 DATA 100C160,000C000,7,1,5,7,9,7
3040 DATA 0000000,171670O,0500716,7717606,6000006,0710077,0616660,0616IC0
3050 DATA 0C06667,6006000,E,4,C,A,E,5
3060 DATA 0100000,0T17176,0031106,71711C6,U000000,11J1136,1111166,1011006
3070 DATA 1771776,0050000,3,1,4,3,B,6
3080 DATA 5GK1010,TEI111A,Y507100,UP761Y9,HV00176,010710C,A766106,0066106
3090 DATA 0306006,28I6100,1,1,E,A,D,1
3100 DATA 006O100,406600I,10661PC,160C110,0666117,0606000,0607150,370C110
3110 DATA 017771C,1000030,E,6,B,4,1,A
3120 DATA 0000076,15P66X0,0210766,1014606,1000606,17177D6,0000006,1776776
3130 DATA 1300C09,0000000,1,A,4,1,E,1
3140 DATA 6010604,0000646,5010006,13D6620,1016776,15P0XU6,1010006,13D7716
3150 DATA 1700170,0000000,B,4,E,4,B,8
3160 DATA 0010000,Y71163I,00000OA,0070006,6051176,0777000,2701U90,0171060
3170 DATA 0001276,770100C,8,3,E,2,5,7
3180 DATA 0000000,6177706,6000006,0767716,0600340,0077710,0170110,0010500
3190 DATA 16117D0,0610000,B,5,D,5,4,A
3200 DATA 0000600,P167676,1000000,11AJ6C6,5Z006C6,167V606,1300006,1011406
3210 DATA V77D176,0000000,8,5,1,5,B,1
3220 '----( ║╜─╫╕╝«▌ )-------------------------------------------------------
3230 CLS 3:INPUT "No.",MEN$:MEN=VAL(MEN$):IF MEN<1 OR MEM>10 THEN 3230
3240 GOSUB 1570:X=18:FOR Y=1 TO 9:LOCATE 65,Y*2:PRINT Y-1;"...";:P=Y-2
3250 GOSUB 1720:NEXT:LOCATE 65,21:PRINT " CR .. END";:X=1:Y=1:MP(XM,YM)=8
3260 REV=1:GOSUB 1700:REV=0
3270 K$=INKEY$:IF K$="" THEN 3270 ELSE IF K$=CHR$(13) THEN 3390
3280 IF K$>="0" AND K$<="8" THEN MP(X,Y)=VAL(K$):GOTO 3260
3290 DX=(K$=CHR$(29))-(K$=CHR$(28)):DY=(K$=CHR$(30))-(K$=CHR$(31))
3300 IF DX=0 AND DY=0 THEN 3270 ELSE XX=X+DX:YY=Y+DY
3310 IF XX=0 THEN XX=14 ELSE IF XX=15 THEN XX=1
3320 IF YY=0 THEN YY=10 ELSE IF YY=11 THEN YY=1
3330 GOSUB 1700:X=XX:Y=YY:GOTO 3260
3340 GOSUB 3360:X=X+1:GOSUB 3360:K=MP(X-1,Y)*6+MP(X,Y):X=X+1
3350 IF K<10 THEN K$=CHR$(K+48):RETURN ELSE K$=CHR$(K+55):RETURN
3360 IF MP(X,Y)<6 THEN RETURN
3370 IF MP(X,Y)=6 THEN XB=X:YB=Y ELSE IF MP(X,Y)=7 THEN XG=X:YG=Y
3380 IF MP(X,Y)=8 THEN XM=X:YM=Y:MP(X,Y)=0:RETURN ELSE MP(X,Y)=0:RETURN
3390 A=(MEN-1)*20+3020:CLS 3:PRINT A;"DATA ";:FOR Y=1 TO 8:X=1:FOR I=1 TO 7
3400 GOSUB 3340:PRINT K$;:NEXT:IF Y=8 THEN PRINT ELSE PRINT ",";
3410 NEXT:A=A+10:PRINT A;"DATA ";:FOR Y=9 TO 10:X=1:FOR I=1 TO 7:GOSUB 3340
3420 PRINT K$;:NEXT:PRINT ",";:NEXT:PRINT HEX$(XM);",";HEX$(YM);
3430 PRINT ",";HEX$(XB);",";HEX$(YB);",";HEX$(XG);",";HEX$(YG)